﻿Imports System.Windows.Forms

Public Class PrincipalMDI


    Private Sub MantenimientoUsuariosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NuevoUsuarioToolStripMenuItem.Click
        Dim ChildForm As New UsuariosForm
        ChildForm.MdiParent = Me
        ChildForm.Show()

    End Sub

    Private Sub NuevoDeporteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NuevoDeporteToolStripMenuItem.Click
        Dim ChildForm As New RDeporte
        ChildForm.MdiParent = Me
        ChildForm.Show()

    End Sub

    Private Sub NuevoEventoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NuevoEventoToolStripMenuItem.Click
        Dim ChildForm As New REvento
        ChildForm.MdiParent = Me
        ChildForm.Show()

    End Sub

    Private Sub NuevoProveedorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NuevoProveedorToolStripMenuItem.Click
        Dim ChildForm As New RProveedor
        ChildForm.MdiParent = Me
        ChildForm.Show()
    End Sub

    Private Sub NuevaReservaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim ChildForm As New RReserva
        ChildForm.MdiParent = Me
        ChildForm.Show()
    End Sub

    Private Sub PrincipalMDI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub BuscarReservaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim ChildForm As New BReserva
        ChildForm.MdiParent = Me
        ChildForm.Show()

    End Sub

    Private Sub BuscarEventoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BuscarEventoToolStripMenuItem.Click
        Dim be As New BEvento
        be.MdiParent = Me
        be.Show()

    End Sub

    Private Sub BuscarDeporteToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BuscarDeporteToolStripMenuItem.Click
        Dim bd As New BDeporte
        bd.MdiParent = Me
        bd.Show()

    End Sub

    Private Sub SalirToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem1.Click
        Me.Close()
    End Sub

    Private Sub DeportesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeportesToolStripMenuItem.Click

    End Sub

    Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub BuscarProveedorToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BuscarProveedorToolStripMenuItem.Click
        Dim ChildForm As New BProveedor
        ChildForm.MdiParent = Me
        ChildForm.Show()
    End Sub

    Private Sub MantenimientoDeReservaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MantenimientoDeReservaToolStripMenuItem.Click

        Dim ChildForm As New ReservaForm
        ChildForm.MdiParent = Me
        ChildForm.Show()

    End Sub
End Class
